home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / fastlane.arc / TESTIME.ASM next >
Assembly Source File  |  1984-11-10  |  903b  |  51 lines
  1.  
  2. data     segment  public byte
  3.          ; declare here any storage required by test routines
  4. data     ends
  5.  
  6.  
  7. code     segment  public byte
  8.          assume   cs: code
  9.  
  10. hextable db       '0123456789ABCDEF'
  11.  
  12.  
  13.          public   calib
  14. calib    proc     near
  15.  
  16.          ; place the calibration code here
  17.          ret
  18.  
  19. calib    endp
  20.  
  21.  
  22.          public   test
  23. test     proc     near
  24.  
  25.          push     bx
  26.          push     dx
  27.  
  28.          cld
  29.          mov      dx, ax
  30.          mov      ah, 4
  31.          mov      bx, offset hextable
  32.  
  33. digloop: rol      dx, 1
  34.          rol      dx, 1
  35.          rol      dx, 1
  36.          rol      dx, 1
  37.          mov      al, dl
  38.          and      al, 0Fh
  39.          xlat     hextable
  40.          stosb
  41.          dec      ah
  42.          jnz      digloop
  43.  
  44.          pop      dx
  45.          pop      bx
  46.          ret
  47.  
  48. test     endp
  49.  
  50. code     ends
  51.          end